home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / qm-util / msi-mail.scr < prev    next >
Text File  |  1994-07-21  |  5KB  |  133 lines
  1. ;This is a script to make unattended mail runs from a BBS thru a batch file
  2. ;using Q-Modem Pro.  You will need to "customize" this script to suit your
  3. ;needs.  I would not recommend setting the redial limit more than 10 attempts
  4. ;otherwise, you will get an error "TOO MANY WHEN'S". 
  5. ;
  6. TURNON      8_BIT
  7. TURNOFF     LINEFEED
  8. TURNOFF     NOISE
  9. TURNOFF     MUSIC
  10. TURNON      SCROLL
  11. TURNOFF     PRINT
  12. TURNOFF     ECHO
  13. TURNOFF     SPLIT
  14. TURNON      STATUSLN
  15. TURNOFF     DOORWAY
  16. STRING      QWKFILE REPFILE QWKPATH REPPATH TELNUM LIMIT
  17. STRING      INITIAL DOOR XFER NAME HOSTNAME
  18. ASSIGN      HOSTNAME     "MUSTANG SOFTWARE"   ;The BBS you want to call
  19. ASSIGN      QWKFILE      MUSTANG.QWK          ;The name of .QWK packet
  20. ASSIGN      REPFILE      MUSTANG.REP          ;The name of the .REP packet
  21. ASSIGN      QWKPATH      C:\QWK\              ;Your .QWK download directory
  22. ASSIGN      REPPATH      C:\REP\              ;Your .REP upload directory
  23. ASSIGN      DOOR         T                    ;Maybe "T" for TomCat
  24. ASSIGN      XFER         Z                    ;Your download protocol
  25. ASSIGN      NAME         "NAME Password"      ;Your Node name and password
  26. ASSIGN      TELNUM       "ATDT 1-805-873-2400^M";The BBS phone # you're calling
  27. ASSIGN      LIMIT        7                    ;# of times you want to re-dial
  28. ASSIGN      INITIAL       "AT&C1&D2E0^M"      ;Your modem init. string
  29. SETCOMM     19200 8 NONE 1
  30. ;---------------------------- Initialize the Modem ----------------------
  31. INIT:
  32. SEND           "ATH0^M"
  33. DELAY          1000
  34. ASSIGN         0 $LIMIT
  35. CLRSCR
  36. DISPLAY        "Initializing Modem ... "
  37. DELAY          1000
  38. SEND           "$INITIAL"
  39. WAITFOR        "OK"
  40. ;----------------------------- Dial the Board ---------------------------
  41. GETON:
  42. WHEN           "BUSY"         AGAIN
  43. WHEN           "NO CARRIER"   AGAIN
  44. PAUSE          2000
  45. DECR           0
  46. IF             "$0" < "1"     GETOUT
  47. TIMEOUT        75             GETON
  48. CLRSCR
  49. DISPLAYLN      "Attempting to connect with $HOSTNAME"
  50. DISPLAYLN      "Dial attempts left are $0"
  51. DISPLAYLN      "Dialing string: $TELNUM"
  52. DELAY          100
  53. SEND           "$TELNUM"
  54. WAITFOR        "CONNECT"
  55. GOTO           ONTHESYSTEM
  56.  
  57. AGAIN:
  58. PAUSE          1000
  59. SEND           "ATH1^M"
  60. PAUSE          5000
  61. GOTO           GETON
  62. ;-------------------- We have connected to the System ------------------
  63. ONTHESYSTEM:
  64. WHEN           "first name"              "*$NAME^M"
  65. WHEN           "ontinue, ["              "C^M"      
  66. WHEN           "view the bulletin menu"  "N^M"
  67. WHEN           "[ENTER] to continue"     "^M"
  68. WHEN           "NO CARRIER"              GETOUT
  69. TIMEOUT        600                       GETOUT            
  70. SEND           "^M"
  71. WAITFOR        "MAIN MENU"
  72. DELAY          100
  73. SEND           "M^M"
  74. DELAY          100
  75. SEND           "^M"
  76. WAITFOR        "MESSAGE MENU"
  77. DELAY          100
  78. SEND           "$DOOR^M"
  79. ;-------------------- Call for the Download of the Mail Packet ---------
  80. DOWNSECTION:
  81. DL:
  82. SEND           "^M"
  83. WAITFOR        "wcMAIL COMMAND"
  84. DELAY          100
  85. SEND           "D^M"
  86. WHEN           "to download!"            UPSECTION
  87. WHEN           "NO CARRIER"              GETOUT
  88. WAITFOR        "oodbye when done"
  89. DELAY          1000
  90. SEND           "Y^M"
  91. WHEN           "Insufficient time"       UPSECTION
  92. WAITFOR        "Start"
  93. DELAY          100
  94. DOWNLOAD       $XFER $QWKPATH$QWKFILE
  95. DELAY          200
  96. ;-------------------------- Lets Upload the Replies ---------------------
  97. UPSECTION:
  98. SEND           "^M"
  99. WHEN           "NO CARRIER"              GETOUT
  100. SEND           "^M"
  101. WAITFOR        "wcMAIL COMMAND"
  102. DELAY          100
  103. EXIST          $REPPATH$REPFILE          SENDEM
  104. GOTO           ALLDONE
  105. SENDEM:
  106. SEND           "U^M"
  107. DELAY          100
  108. WAITFOR        "Start"
  109. PAUSE          1000
  110. UPLOAD         $XFER $REPPATH$REPFILE
  111. WHEN           "Transfer UNCESSFUL!"     UPSECTION
  112. DOS            "DEL $REPPATH$REPFILE
  113. GOTO           LEAVE                         ;Change to ALLDONE if
  114. ;                                             auto logoff is set to no
  115. ;--------------------------- Lets get out of Here ----------------------
  116. LEAVE:                                       ;In case you have
  117. WAITFOR        "Thank you for calling"       ;auto logoff set to 
  118. PAUSE          100                           ;yes
  119. SEND           "ATZ^M^~^~^~^~^~^~ATH1M0^M"   ;
  120. SYSTEM         Y                             ;
  121. EXIT
  122. ALLDONE:
  123. SEND           "^M"
  124. WAITFOR        "wcMAIL COMMAND"
  125. DELAY          100
  126. SEND           "G^M"
  127. PAUSE          5000
  128. GETOUT:
  129. HANGUP
  130. SEND           "ATZ^M^~^~^~^~^~^~ATH1M0^M"
  131. SYSTEM         Y
  132. EXIT
  133.